delphi 字符串查找替换函数 转

　　1. 提取字符串中指定子字符串前的字符串 　　Function Before( Src:string ; S:string ): string ; 　　V ...